home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / trapit.zip / CNTRPRS.BA_ / CNTRPRS.BA
Text File  |  1996-11-06  |  803b  |  22 lines
  1. Option Explicit
  2.  
  3. Global giTrapItCentralErrorProcessor As Integer
  4.  
  5. Function TrapItCentralErrorProcessor (ByVal lsFile As String, ByVal lsProc As String, ByVal lsErr As String, ByVal lsError As String) As Integer
  6. ' TODO: modify and test this procedure
  7. '       currently it calls the form with three command buttons.
  8. '       By pressing one of this buttons the user will decide what to do:
  9. '       to terminate, to resume or to resume next
  10.  
  11.    Load frmTrapItCentrl
  12.    frmTrapItCentrl.Caption = "Unanticipated error in the file " & lsFile & " !"
  13.    frmTrapItCentrl.txtProc = lsProc
  14.    frmTrapItCentrl.txtErr = lsErr
  15.    frmTrapItCentrl.txtError = lsError
  16.  
  17.    frmTrapItCentrl.Show 1
  18.    TrapItCentralErrorProcessor = CInt(frmTrapItCentrl.lblReturn)
  19.    Unload frmTrapItCentrl
  20. End Function
  21.  
  22.